home *** CD-ROM | disk | FTP | other *** search
/ Canon Creative 3 / Canon Creative 3 - Disc 2.iso / designe / DE.DIR / 00008.ls < prev    next >
Encoding:
Text File  |  1997-05-08  |  1.1 KB  |  45 lines
  1. on initTour
  2.   global gCurrentScreen, gMaxScreens, gFirstScreen
  3.   set gFirstScreen to the number of member "firstScreen"
  4.   set lastScreen to the number of member "lastScreen"
  5.   set gMaxScreens to 28
  6.   set gCurrentScreen to 0
  7. end
  8.  
  9. on closeTour
  10.   global gScreenShotSprite
  11.   puppetSprite(gScreenShotSprite, 0)
  12. end
  13.  
  14. on setScreenShot whichScreen
  15.   global gScreenShotSprite, gCurrentScreen, gMaxScreens, gFirstScreen
  16.   if whichScreen = #plus then
  17.     if gCurrentScreen < gMaxScreens then
  18.       set gCurrentScreen to gCurrentScreen + 1
  19.     else
  20.       puppetSound("negative")
  21.       updateStage()
  22.       exit
  23.     end if
  24.   else
  25.     if whichScreen = #minus then
  26.       if gCurrentScreen > 1 then
  27.         set gCurrentScreen to gCurrentScreen - 1
  28.       else
  29.         puppetSound("negative")
  30.         updateStage()
  31.         exit
  32.       end if
  33.     else
  34.       if (whichScreen >= 0) and (whichScreen <= gMaxScreens) then
  35.         set gCurrentScreen to whichScreen
  36.       else
  37.         alert("Unexpected Screen Shot Number " & whichScreen)
  38.         exit
  39.       end if
  40.     end if
  41.   end if
  42.   go("scrn" & gCurrentScreen)
  43.   updateStage()
  44. end
  45.